home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 5 Developer's Kit / vb5 dev kit.iso / dev / lbltools / form1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-01-10  |  3.4 KB  |  107 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Demo Label Functions"
  5.    ClientHeight    =   5670
  6.    ClientLeft      =   2820
  7.    ClientTop       =   1545
  8.    ClientWidth     =   6540
  9.    Height          =   6075
  10.    Left            =   2760
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   5670
  15.    ScaleWidth      =   6540
  16.    ShowInTaskbar   =   0   'False
  17.    Top             =   1200
  18.    Width           =   6660
  19.    Begin VB.CommandButton Command3 
  20.       Caption         =   "&Erase Label"
  21.       Height          =   615
  22.       Left            =   4440
  23.       TabIndex        =   5
  24.       Top             =   2400
  25.       Width           =   1215
  26.    End
  27.    Begin VB.TextBox Text3 
  28.       Height          =   615
  29.       Left            =   960
  30.       TabIndex        =   4
  31.       Text            =   "Text3"
  32.       Top             =   2400
  33.       Width           =   3255
  34.    End
  35.    Begin VB.TextBox Text2 
  36.       Height          =   615
  37.       Left            =   960
  38.       TabIndex        =   3
  39.       Text            =   "Text2"
  40.       Top             =   1560
  41.       Width           =   3255
  42.    End
  43.    Begin VB.CommandButton Command2 
  44.       Caption         =   "&Write Label"
  45.       Height          =   615
  46.       Left            =   4440
  47.       TabIndex        =   2
  48.       Top             =   1560
  49.       Width           =   1215
  50.    End
  51.    Begin VB.TextBox Text1 
  52.       Height          =   615
  53.       Left            =   960
  54.       TabIndex        =   1
  55.       Text            =   "Text1"
  56.       Top             =   720
  57.       Width           =   3255
  58.    End
  59.    Begin VB.CommandButton Command1 
  60.       Caption         =   "&Read Label"
  61.       Height          =   615
  62.       Left            =   4440
  63.       TabIndex        =   0
  64.       Top             =   720
  65.       Width           =   1215
  66.    End
  67.    Begin VB.Label Label1 
  68.       Caption         =   "Label1"
  69.       BeginProperty Font 
  70.          name            =   "MS Sans Serif"
  71.          charset         =   0
  72.          weight          =   700
  73.          size            =   8.25
  74.          underline       =   0   'False
  75.          italic          =   0   'False
  76.          strikethrough   =   0   'False
  77.       EndProperty
  78.       ForeColor       =   &H000000FF&
  79.       Height          =   735
  80.       Left            =   0
  81.       TabIndex        =   6
  82.       Top             =   4680
  83.       Width           =   6495
  84.    End
  85. Attribute VB_Name = "Form1"
  86. Attribute VB_Creatable = False
  87. Attribute VB_Exposed = False
  88. Private Sub Command1_Click()
  89.     Text1.Text = GetLabel(Text1.Text)
  90. End Sub
  91. Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  92.         
  93.         Label1.Caption = "Reads the label from the drive in the adjacent text box."
  94. End Sub
  95. Private Sub Command2_Click()
  96.     Call SetLabel(Text2.Text)
  97. End Sub
  98. Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  99.     Label1.Caption = "Writes the label to the drive specified. Delete the existing label first."
  100. End Sub
  101. Private Sub Command3_Click()
  102.     Call ClearLabel(Text3.Text)
  103. End Sub
  104. Private Sub Command3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  105.     Label1.Caption = "Delete the existing label. (Specify the drive only."
  106. End Sub
  107.